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:06: AX-11 Bliss-32 V4.0-742 
06:49 EBASRTL SRE BASRSET.832;1 


1 
1 
e string right justified, fixed semantics 
e: BASR ef 835 este! $881008 


MODULE BASSRSET ( 


IDENT = '1=005" 3 


i 
BEGIN 


Vee RRR RAARAAEAAAEEAREAAA AEA AEE REAR EAA EEE TERETE AAA ARAAAAA EERE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 

we 

® 

i 

. ® 
!* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

!* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
t® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. e 
* ® 
!* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'® CORPORATION. * 
. ® 
!® DIGITAL ASSUMES NO RESPONS a} ITY FOR THE USE OR RELIABILITY OF ITS * 
® 

® 

® 

* 


IBIL 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 
2 
2 
2 
2 
2 00 
¢ 0029 
0030 1++ 
; bo3) : FACILITY: String support library 
3 003 ! ABSTRACT: 
3 0034 : 
3 0035 : Copy one string of any class or dtype to another string of any class 
36 0036 : or dtype. Right justify the source string in the destination string 
37 0037 : using fixed length semantics on the destination string. ie. do not 
38 0038 : alter the current Length for dynamic strings (or vary ng strings if 
4 444 } they are implemented). Blank pad or truncate on the left. 
re sg ENVIRONMENT: User mode, AST level or not or mixed 
43 boe8 ! AUTHOR: R. Will, CREATION DATE: 02-Apr-79 
4&4 0044 : 
45 0045 ! MODIFIED BY: 
46 004 : 
47 004 : R. Will, 02-Apr-79: VERSION 01 
48 0048 ! 01 - original 
49 0049 ! 1-002 = Use STRSK_FILL_CHAR. JBS 15-APR-1979 
50 0050 ! 1-003 - Add string by ref entry. RW 18-JUL-79 
51 0051 ! 1-004 - string clean up, don't use SSTR$ macros. RW 29-Oct-79 
26 B03¢ ! 1-005 - Free temp string before exitting. Not doing this caused a 
5 Boe : field test site's large file update to run out of virtual 
54 054 : storage after 8 hours! JBS 10-MAR-1980 
55 0055 leo 
$e 
5 05 ! <BLF /PAGE> 
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BASSRSET 1$-se -1984 01:06: AX-11 Bliss-32 V4.0-742 Page 
1-005 12-8 08- 1 3be 97:98:49 BASRTL.SRCIJBASRSET .B32;1 ’ 
; p38 1! 

: 60 59 1°! SWITCHES: 

pee Bea 

: o? p06 : SWITCHES ADDRESSING MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
E 65 064 1! 

>; 66 065 1 ! LINKAGES: 

; 6 (OF 066 1! 

; & 0067 1 

; $9 6068 ; REQUIRE "RTLIN:STRLNK'; ! Use require file with string Linkage 
ee a 0254 1! 

: 7 0255 1 ! TABLE OF CONTENTS: 

fae 0256 1! 

: «66 os 22 1 

: 75 0258 1 FORWARD ROUTINE 

7) an 0259 1 BASSRSET : NOVALUE, , coer right justified using fixed sem 
: 77 osey 1 BASSRSET_R : NOVALUE; ! RSET with string by ref 

; 0261 1 

; ocog 73 

: 80 0265 1 ! INCLUDE FILES: 

; 8 0264 1! 

; § 0265 1 

: + B¢e6 : REQUIRE ‘RTLIN:RTLPSECT'; ! Use to declare PSECTs 

. 0306 1 LIBRARY ‘RTLSTARLE'; ! STARLET Library for macros and symbl 
; @ 0363 1 

: 87 0364 1! 

: 88 0365 1 ! MACROS: NONE 

tS 0366 1! 

;. 0367 1! 

: 91 0368 1 ! EQUATED SYMBOLS: NONE 

s 92 0369 1! 

; B300 1! 

; 94 0371 1 =! PSECT DECLARATIONS 

;. bere 1! 

4 96 0375 1 DECLARE_PSECTS (BAS); 

o> oe 0374 1! 

; «98 0375 1 ! OWN STORAGE: NONE 

RS. 0376 1! 

: 100 0377 1! 

; 101 0378 1 ! EXTERNAL REFERENCES: 

3 108 tT . 2 

; 80 1 

; 104 0381 1 EXTERNAL ROUTINE 

3 105 O56 1 STRSFREE1_DX_R4 : STRSJSB_GETFRE, ! deallocate a string 

3 106 Oea7 ! STRSCOPY_Bx_R8 : STRS$JSB_COPY_DX; ! copy string to and from temp 
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005 14-Sep-1 BASRTL. RSET.832;1 

; 109 85 1 GLOBAL ROUTINE BASSRSET ( ! copy right justified 

; 110 $6 1 DEST_DESC, ! Pointer to dest str desc 
: 111 1 SRC_BESC) ! Pointer to src str desc 
; ne 0388 1 : NOVALOE = 

on ee 

; 119 0 1 1 i FUNCTIONAL DESCRIPTION: 
$2117 $398 i This routine copies one string of any class or dtype to 

: (118 0394 1! a second string of any class or dtype but which is treated as 

3 119 0395 1! a fixed length string. The source is rig justified in the 

; 1¢0 baeo 7? destination hd truncation or blank padding on the left. 

3 6Ne 0397 1! This is accomplished by creating a temporary string with 

; \s¢ 0398 1! the attributes of the destination string and using the temporary 
a Ye 0399 1! so that the string cannot be moved from under us, since we 

: is Be88 : can't use the $STR$ interlock macros. 

; 126 0408 FORMAL PARAMETERS: 

; 128 0404 1! DEST _DESC.wx.dx pointer to destination string descriptor 
; 19? Bebe : } SRC_BESC.rx.dx pointer to source string descriptor 

: 131 409 1! IMPLICIT INPUTS: 

; 132 408 1! 

Pin eh 

; 135 O4it 1 ! IMPLICIT OUTPUTS: 

2 en 

: 139 0615 1 i ROUTINE VALUE: 

; 140 0416 1 ! COMPLETION CODES: 

3 «(141 0417 1! 

Pa sag to 

; 144 0420 1 | SIDE EFFECTS: 

: 146 oh 4 1! This routine calls STRSCOPY and therefore may signal any of its errors. 
3 1467 0423 1! It aay also allocate and/or deallocate space in the destination string. 
3 148 0424 1! It will allocate and deallocate space for a temporary string. 

: 149 0425 1! 

; 150 0426 1 !-- 

2) en eee 

Baa g 

; 155 be 1 DEST_DESC : REF BLOCK (8, BYTE]; 

1 Sw 

; 136 4 SRC_DESC : REF BLOCK (8, BYTE); 

: 160 LOCAL 

: 161 TEMP_DESC : BLOCK (8, BYTE); 

; 188 439 1+ 

: 164 440 ! Copy the destination string to a temporary so that no one else may 

3; 165 441 ! change its length or pointer if it is a dynamic string. 
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BASSRSET 
1-005 14-Sep-19 BASRTL.SRCJBASRSET.B32;1 (3) 


2 044 !- 

: 189 108 Tee ESE DSCS$W_LENGTH] = 0; 

> 168 444 TEMP=D 3° DSC$B-DTYPE] = OSCSK_DTYPE_T; 

3 198 445 TEMP_DESC LDSCSB_CLASSJ = DSCSK_CLASS_D; 

; io 044 TEMP_DESC dW POINTER) = 0; 

3 10) ri = STRSCOPY_DX_R8 (TEMP_DESC CO, 0, 0, 0], DEST_DESC CO, 0, 0, 03); 

: 178 0456 Treat the temporary destination as a fixed length string 

; 175 0451 

: 178 pees M IF .TEMP_DESC CDSCSW_LENGTH] LEQ .SRC_DESC COSC$W_LENGTH] 

; 178 b¢84 ! The source string is longer than the destination 

; iW 0455 ! string. Compute the amount of the source string which must 

; 190) Be28 : be truncated from the left and move the source starting there. 

; ise 0458 HEN 
; #18 0459 CHSMOVE ( ' copy the string 
3; «184 0460 .TEMP_DESC COSCSW_LENGTHI, ! move enuf chars to fill dest 
> «6185 0461 CHSPLUS ( ' start after trunc in source 
3 198 gee CHSPLUS (.SRC_DESC COSCSA_POINTER], -SRC_DESC CDSC$W_LENGTH]), -.TEMP_DESC CDSC$W_LENGTH]), | 
; 13 bebe & -TEMP_DESC CDSCSA_POINTER]) ! start of dest string 
; 190 0466 ! The source string is shorter than or the same ——- as the | 
; «6191 0467 ! destination. Fill the number of characters to pa 
3 136 0468 ! and then move the source. 
, 19 0469 = 
> 194 0470 § ELSE agg 

: 195 0471 CHSMOVE ( ! fill the temp right justified 

> 196 oh 4 § -SRC_DESC CDSC$W_LENGTH) ! move Length of source 
: 197 047 “SRC-DESC CDSCSA_POINTERS, i start at beginning of source | 
3: 198 0474 2 CHSFILL (° ', ' start move after gad blanks 
3: 199 0475 2 - TEMP_DESC derby had, ~- .SRC_DESC COSC$W_LENGTHJ, : 
; 200 0476 2 . TEMP DESC CDSCSA_POINTER])); 
> 201 0477 2 

3 02 0478 § '¢ ; Seer 
; $o7 th Now put the string in the true destination 
HY soe ott 5 STRSCOPY_DX_R8 (DEST_DESC CO, 0, 0, 03, TEMP_DESC CO, 0, 0, 0]); 
3 $09 048 : ! Free the temporary string. 

; 208 0484 2 !- 

; 209 0485 2 STRSFREE1_DX_R4 (TEMP_DESC (0, 0, 0, 0)); 

3: 210 04 1 END; ‘End of BASSRSET 


TITLE BASSRSET | 
“IDENT \1-005\ 


.EXTRN STRSFREE1_DX_R4 
“EXTRN STRSCOPY_BX_R8 


-PSECT _BASSCODE,NOWRT, SHR, PIC,2 


9000 ENTRY BASSRSET, Save R2,R5.RG.RS.RO.R7.RB,RD 0385 


03¢ 
02 MOVAB STRSCOPY’DX_R8, R 


C0 
59 000000006 00 9% 0 
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BASSRSET 16-Sep- 1: AX=11 Bliss-32 V4.0-742 
tts 14- ~tep- 138 9 £06: 99 BASRTL eS Spacrse 1.832;1 
5E 4 €2 00009 SUBL2 #4, SP 
0200000 F DD 0000 PUSHL  #34471936 
4 Ae b4 001 CLRL_ TEMP_DESC+4 
50 6E 9E 0001 MOVAB TEMP"DESC, RO 
51 06 =A 00 0018 MOVL DEST DESC, R1 
6 : 001¢ JSB STRSCOPY_DX_R8 
56 08 aC D OO1g MOVL  SRC_DESC> RB 
08 BC 6— 81 000 CMPW TEMP_DESC, a@SRC_DESC 
15 1A 000 6 BGTRU 1$ 
50 08 BC 3¢ 000 MOVZWL @SRC_DESC, RO 
50 04 Ab £0 002C ADDL2 4 (R6J, RO 
21 6 00 MOVZWL TEMP DESC, R1 
0 C2 000 UBL2 Ri, RO 
04 BE 60 6E 0036 MOVCS TEMP_DESC, (RO), aTEMP_DESC+4 
1 1 00038 BRB 2$ 
50 6E 3C 0003D 1$ MOVZWL TEMP_DESC, RO 
51 08 Bt € 00040 MOVZWL @SRC~DESC, R1 
50 1 ce 0044 SUBL2. R1, RO 
50 20 6E - 00 C 0047 MOVCS #0, (SP), #32, RO, @TEMP_DESC+4 
63 04 86 08 BC 38 004E MOVC3 a@SRC_DESC, @4(R6), (R3) 
1 bE : 00054 2$: MOVAB TEMP DESC, R1 
50 04 AC DO 00057 MOVL DEST DESC, RO 
69 16 00058 JS$B STRSTOPY_DX_R8 
50 of 9— 0005D MOVAB TEMP_DEST, RO 
000000006 00 16 00060 JSB STRSFREE1_DX_R4 
04 00066 RET 
; Routine Size: 103 bytes, Routine Base: _BASSCODE + 0000 
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13-88-1382 91 96:49 BASRTL.SRCIBASRSET.B32¢1 
GLOBAL ROUTINE BASSRSET_R ( ' copy right justified 

DEST_DESC, ! Pointer to dest str desc 

any .CENGTN ! Length of source string 

SRC~POINTER) i Pointer to source string 

NOVALOE = 


++ 
FUNCTIONAL DESCRIPTION: 
This routine copies one string of any class or dtype to 
a second string of any class or dtype but which is treated as 
a fixed Length string. The source is eat justified in the 
destination with truncation or blank padding on the left. 
FORMAL PARAMETERS: 
DEST_DESC.wx.dx pointer to destination string descriptor 
SRC_CENGHT.rlu.v source string length | 
SRC_POINTER.rlu.v pointer to source string 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
This routine calls STRSCOPY and therefore may signal any of its errors. 


It may also allocate and/or deallocate space in the destination string. 
It will allocate and deallocate space for a temporary string. 


BEGIN 


MAP 
DEST_DESC : REF BLOCK (8, BYTE); 


LOCAL 
TEMP_DESC : BLOCK (8, BYTE); 


'¢ 
! Copy the destination erring to a temporary to preserve its length, so 
! that no one may move the string from under us or change it's length 

; while we are processing it. 


TEMP_DESC [DSC$W_LENGTH) = 
TEMP-DESC EDSCSB-DIYPEI = 
TEMP"DESC CDSC$B~CLASS) = 


po SO Oi eee -— + OC — —— a 


‘pgyse 1% S2-19 384 91: 96: 99 AX-11 Bliss-32 V4.0-742 Page 


12286824 BASRTL.SRCIBASRSET.B32:1 
: 270 545 TEMP_DESC CDS $A_POINTER] = 0; 
: a 2¢9 ms STRSCOPY_DX_R8 (TEMP_DESC C0, 0, 0, 0], DEST_DESC CO, 0, 0, 0); 
rf a308 i Treat the destination as a fixed length string 
i 9 3 1 TF -TEMP_DESC CDSCSW_LENGTH] LEQ .SRC_LENGTH 
; 278 228 i The source Serene is longer than the destination 
; e279 0554 i string. Compute the amount of the source string which must 
: + 0356 be troncated” Ce the left and move the source starting there. 
; 28 035 THEN 
3 He 558 CHSMOVE (. TEMP DESC COSCSW_LENGTHI, ! neve enuf chers_ ee erat +s 
; 6284 0559 _POINTE after tr in 
H 85 0560 7SRC~ LENGTH = .TEMP_DESC COSCSW_ Lenotad*” TEMP DESC DSCSA_ POINTER) 
; 56 828! i ! start of dest string 
; 288 bac§ i The source aren is shorter than or the same length as the 
; 289 0564 ' destination lL the number of characters to pa 
; 290 0565 i and then move the source. 
: $33 beer 5 ELSE 
; $95 0568 CHSMOVE (.SRC_LENGTH, ! move Length of source 
> 294 0569 § .SRC_POINTER, ! start at beginning of source 
3; en 0570 CHSFILL (° ' i start move after pad blanks 
> 2% 0571 3 . TEMP_DESC fp DSC$W_LENGTH] = .SRC_LENGTH, 
: 297 Oa78 -TEMP-DESC CDSCS$A_POINTER))); 
; 239 bah2 '¢ 
3 4 B2r2 Now copy the temporary back into the destination 
: 303 Bare STRSCOPY_DX_R8& (DEST_DESC CO, 0, 0, 0], TEMP_DESC CO, 0, 0, 0)); 
; ie Ft4 Free the temporary string. 
: 306 0581 2 STRSFREE1_DX_R4 (TEMP_DESC CO, 0, 0, 03); 
; 307 0582 1 END; ‘End of BASSRSET_R 


O3FC 00000 .ENTRY BASSRSET_R. Save R2.R3.R4.R5.R6.R7.R8.R9 

59 000000006 00 i 00002 HOVAB STRSCOPY-DX_R8, RO : 
5 04 C2 00009 SUBL P : 
0200000 8F odd 0000C PUSHL  #34471936 : 

04 AE be O01 CLRL TEMP_DESC+4 3 

SE 001 MOVAB TEMPTDESC, RO : 

AC p 0018 MOVL DEST DESC, R1 : 

69 16 OO01C JSB STRSTOPY_DX_R8 3 

0 ED OO1E CMPZ2V #0, #16,~TEMP_DESC, SRC_LENGTH ; 

1 4 00024 BGTR 1 ; 

AC ¢ 86 6 ADDL3 SRC LENGTH. SRC_POINTER, RO g 

6 002C MOVZWL TEMP D R1 : 

5 ¢ 90 F SUBL ¢ RI, Ro” ; 

6E 052 MOVC TEMP_ DESC, (RO), @TEMP_DESC+4 : 


199 soge ° + 0 data bytes 
: 17:8 


M15 
BASSRSET 16-Sep-1 1: AX-11 Bliss-32 V4.0-742 
S808 14 or 800-1382 4 9 06: S BASRTL” SR RCiB BASRSET.832;1 
14° #11 7 BRB 2$ 
50 6E 35 0039 1$: MOVZWL TEMP_DESC, RO 
50 08 AC : 00 SUBL SRC_CENGTH, RO 
50 20 6€ 04 oy C Bae MOVC #0, (SP), #32, RO, @TEMP_DESC+4 
63 oc BC 08 Ac 38 0047 MOVC3 SRC_LENGTH, @SRC_POINTER, (R3) 
2 6E 3 Bne8 2s: MOVAB TEMP_DESC, R1 
0 04 AC 00 0005 MOVL DEST_DESC, RO 
50 BF OE 00086 iene eotsewen nee 
000000006 80 16 8089 JSB STRSFREE1_DX_R4 
04 0005F RET 
; Routine Size: 96 bytes, Routine Base: _BASSCODE + 0067 
: 309 at i END ‘End of modul 
: 310 0585 1 pati ees: 
s 351 0586 0 ELUDOM 
: PSECT SUMMARY 
; Name Bytes Attributes 
F _BASSCODE 199 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL. CON, PIC,ALIGN(2) 
: Library Statistics 
ee eee eee a ae oe ee Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: -$255$DUA28: CSYSLIBISTARLET.L32;1 9776 6 0 581 00:01.1 
; COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/L1IS=L1S$:BASRSET/0BJ=0BJ$:BASRSET MSRC$:BASRSET/UPDATE=(ENHS:BASRSET) 


Be Se Be Se Ge Be Be Se Se Be Be Be 


msgs 
; Memor 
§ Compile 


Used: 


63 pages 


tion Complete 


SE --—sesst-ssnsnett- 
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